root <- "."
datadir <- paste(root,
                 'input_data',
                 sep='/')
modeldir <- paste(root,
                  'estimated_models',
                  sep='/')

if (!dir.exists(modeldir)) {
  dir.create(modeldir)
}
